#### OLIDAN POCIUS
## EXERCICIOS  2 - Funcoes matematicas 

### Biomassa de arvores
# Modelo 1
e<-2.71828
d<-15
bmassa.1<-(e^-1.7953)*(d^2.2974)
bmassa.1   #[1] 83.61105
# Modelo 2
h=12
b= -2.6464 + (1.9960*log(d))+(0.7558*log(h))
b #
bmass.2=exp(b)
bmass.2 #[1] 103.2301
## OS modelos resultam em valores distintos

### SEQUNCIAS
rep("a", 6)
rep(1:3, each=3)
repete<-c(rep(1, 3),rep(2,2),rep(3,1))
repete      #retorna: [1] 1 1 1 2 2 3
seque.1<-c(seq(1,5),seq(4,1))
seque.1    #retorna [1] 1 2 3 4 5 4 3 2 1

impar=seq(from=1,to=99,by=2)
impar #[1]  1  3  5  7  9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49
[26] 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99

### CONTA DE LUZ
leitura<-c(9839, 10149, 10486, 10746, 11264, 11684, 12082, 12599, 13004, 13350, 13717, 14052)
consumo<-diff(leitura)
consumo     # [1] 310 337 260 518 420 398 517 405 346 367 335
summary(consumo)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##  260.0   336.0   367.0   383.0   412.5   518.0 

## VARINCIA NA UNHA ##

## Q1:
pesos.unha <- c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4)
desv.unha=pesos.unha-mean(pesos.unha)
desv.unha #[1]  0.8166667  2.2166667 -1.5833333 -2.2833333 -0.1833333  1.0166667
#[7]  0.3166667  1.2166667  1.6166667 -2.3833333 -2.5833333  1.8166667

variancia=sum(desv.unha^2)/(length(pesos.unha)-1)
variancia          #[1] 3.110606
var(pesos.unha)#[1] 3.110606

Desvio.Padrao=sqrt(variancia)
Desvio.Padrao      #[1] 1.763691
sd(pesos.unha) #[1] 1.763691


## TESTE T ##

# pt(q, df, ncp, lower.tail = TRUE, log.p = FALSE)
P1=sum(pt(2.2,19,lower.tail=FALSE), pt(-2.2,19,lower.tail=TRUE))
P1 #  [1] 0.0403811  significativo

P2 = sum (pt(1.9,19, ,lower.tail=FALSE), pt(-1.9,19, ,lower.tail=TRUE))
P2  # [1] 0.0727184 NO significativo




